Asobe! Fotoshock 5.0 ERO/Asobe! Fotoshock 5.0 ERO.iso/pc/tool.dxr/00020_KeyDownForTools.ls

Text File | 1999-03-23 | 2.2 KB | 86 lines

property dist
global gkeydownbehaviorfortools

on beginSprite me
  set gkeydownbehaviorfortools to me
  set the keyDownScript to "keyCheck(gKeyDownBehaviorForTools)"
end

on keycheck me
  case the keyCode of
    123:
      if the shiftDown then
        set dist to point(-10, 0)
      else
        set dist to point(-1, 0)
      end if
      movebykey()
    124:
      if the shiftDown then
        set dist to point(10, 0)
      else
        set dist to point(1, 0)
      end if
      movebykey()
    126:
      if the shiftDown then
        set dist to point(0, -10)
      else
        set dist to point(0, -1)
      end if
      movebykey()
    125:
      if the shiftDown then
        set dist to point(0, 10)
      else
        set dist to point(0, 1)
      end if
      movebykey()
    36, 76:
      rgbinput()
  end case
end

on movebykey me
  tell getAt(the windowList, 1)
    repeat with n = 1 to 120
      if the ink of sprite n = 33 then
        if the mode of getAt(the scriptInstanceList of sprite n, 1) = #tits then
          alert("ﾃ‡ﾂｱﾃ‡ﾃε英ﾃ…[ﾃ営ﾃ‡ﾃ陛ｬﾃ†ﾃ‡ﾂｩﾃ‡ﾃｾﾃ‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③")
        else
          set the loc of sprite n to the loc of sprite n + dist
        end if
        next repeat
      end if
    end repeat
  end tell
end

on rgbinput me
  set rvalue to value(the text of field member "RedValue")
  set gvalue to value(the text of field member "GrnValue")
  set bvalue to value(the text of field member "BluValue")
  if (rvalue < 0) or (rvalue > 100) then
    alert("0ﾃ‡ﾂｩﾃ‡ﾃ100ﾃ‡窶ｹﾃ‡ﾂｼﾃ‡ﾃεｪﾃ†ﾃｪﾃｮﾃ‡ﾂ敕ｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
    set the text of field member "RedValue" to string(100)
    set rvalue to 100
  end if
  if (gvalue < 0) or (gvalue > 100) then
    alert("0ﾃ‡ﾂｩﾃ‡ﾃ100ﾃ‡窶ｹﾃ‡ﾂｼﾃ‡ﾃεｪﾃ†ﾃｪﾃｮﾃ‡ﾂ敕ｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
    set the text of field member "GrnValue" to string(100)
    set gvalue to 100
  end if
  if (bvalue < 0) or (bvalue > 100) then
    alert("0ﾃ‡ﾂｩﾃ‡ﾃ100ﾃ‡窶ｹﾃ‡ﾂｼﾃ‡ﾃεｪﾃ†ﾃｪﾃｮﾃ‡ﾂ敕ｬﾂｸﾃｳﾃ陛‡ﾂｵﾃ‡ﾆ津｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③")
    set the text of field member "BluValue" to string(100)
    set bvalue to 100
  end if
  sendSprite(12, #setSlider, rvalue)
  sendSprite(15, #setSlider, gvalue)
  sendSprite(18, #setSlider, bvalue)
end

on endSprite me
  set the keyDownScript to "nothing"
end